PRACTICAL PROGRAMMING IN BASIC 
Study Unit 10 

24710-2 

Ed 2 


MERGING - FUNCTIONS 


24710-2/8508 © Ics Printed in South Africa 


7) MERGING—FUNCTIONS \\_\ 
eS OF is 20 ts 
de 906 FR Ws 


Edition 2 


STUDY UNIT 10 
YOUR LEARNING OBJECTIVES 


WHEN YOU COMPLETE THIS UNIT, YOU WILL BE ABLE TO: 


_] Understand the components of 
a good software designed for the 
non-technical user... . Pages 1-2 


L] Use a “menu” as an aide in 
choosing the various processing 
options available .... Pages 2-3 


_] Understand the design 

and coding of an appointments 
calendar menu. This is the 

first step in this demonstration 

of user-friendly 

SOTWALE. 4 ¢ 2. neat olen Pages 4-7 


L] Use the technique of stub 
testing which allows for 

programs to be developed in 
orderly, piece-by-piece 

PRONTIUIOS Sov Asscryinzice Pages 7-8 


L] Understand prompting and 
loading data into tables. This is 
the major components of the 
entry routineé.......... Pages 8-13 


LEARNING AIDS 

Programmer's Check #1 ..... 14 
Programmer's Check #2 .. 30-31 
Programmer's Check #3 ..... 40 


_] Understand how the table data 
is maintained through the use of 
three routines: additions, dele- 
tions and changes. . Pages 15-20 


_] Understand that the coding of 
the additions routine is similar to 
the entry routine .. Pages 20-22 


|] Locate and ‘'flag’’ records 
to be deleted from 
SRG TG <a in andes Soaiiyatd Pages 22-24 


_] Modify records by reaching the 
table and then making the 
appropriate change Pages 24-27 


| Use the bubble sorting method to 
rearrange records in the table 
according to a predetermined 
SEQUENCE: cnc eins aes Pages 27-36 


_] Use the display module to give 
the user the option of viewing 
selected records... Pages 36-39 


EXAM 10 (Examination for Study 
OPC PM Ek ASE eee ti? 41-42 
AMISWER GHEEL. 5. 6.5584245 43 


STUDY UNIT 10 
MERGING—FUNCTIONS 


DO YOU KNOW? 


How menus can make software 


‘‘user-friendly’’? 


How a bubble sort works? 


What stub testing means? 


HUMANIZING THE 
PROGRAMS 

Do you remember how ‘‘whelmed’’ you 
felt the first time you visited a computer store? 
How about the first attempts you made to in- 
put data on a keyboard? Have you experienced 
the frustration of putting in a program and 
data, but not being able to get it out? Have you 
ever “‘lost’? your program? 


‘ 


There is no doubt about it. Computer 
*‘lingo’’ and the act of learning how to use a 
computer are pretty intimidating to the person 
just starting out. By now, of course, you haye 
gotten over ‘‘computer shock’’ and learned 
how to make the computer be your own per- 
sonal genie. 


With this experience and knowledge comes 
a certain amount of responsibility. Being a pro- 
grammer means that you will be devising pro- 
grams for users who may not know very much 
about computers, programs, data or applica- 
tions. All they know is that everybody is using 
one, and they have been told that a computer 
can save them plenty of money and time. 


FIGURE 1I—Soon, nearly everyone will have 
some form of programmable computer for work 
and pleasure. It is the programmer's respon- 
sibility to provide software which is easily used 
and totally reliable. 
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What sort of program will you write for 
a customer who is willing to hire you in hopes 
that you will have answers? Once you realize 
how little your client knows about computers 
and programs, you do have a responsibility to 
educate and assist this user. 


The first and most essential task is to find 
out precisely how a computer will assist the cli- 
ent toward greater efficiency, profits, and con- 
trol. Once you really understand the job require- 
ments, you can set about creating programs 
which will actually accomplish two objectives 
at the same time. They will 


® meet the specified job requirements, and 


® educate the program user in how to ob- 
tain reliable results. 


Meeting these objectives is the ideal you— 
the programmer—should always strive to 
achieve. With your skills and experience, you 
should be able to provide customers with pro- 
grams which they can use without much of the 
initial frustration and ‘computer shock’’ you 
first experienced. 


There is no secret knack or knowledge 
required to produce programs which a begin- 
ner can understand. It does require patience, 
a true understanding about what the user does 
not know, and a bit of trial and error practice 
on your part. 


This doesn’t mean that you have to stay 
with ‘‘simple’’ programming. Rather, it means 
you have to do some careful, step-by-step 
guiding of your pupil through a new and often 
confusing process. Always keep in mind what 
you experienced when you set about program- 
ming for others. And, keep the user constant- 
ly in mind. After all, you don’t want to lose 
a client halfway through a job because he or 
she got intimidated and ‘‘whelmed’’. 


This Study Unit will show you how you 
can teach the novice step-by-step procedures in 
setting up and using programs. And if you have 
done your programming tasks well, your pro- 
gram and the computer will actually teach the 
client how to take command of the genie! Once 
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you have achieved that, you have really passed 
your final test as a successful programmer. 
Let’s see how to do it! 


MENUS AND 
USER-FRIENDLINESS 

The technique of storing and maintaining 
files of data is only useful if the information 
is easy to retrieve and update. While the pro- 
grammer may have to spend considerable time 
to produce a ‘‘bug-free’’ program, the user will 
only be impressed by simplicity, accuracy, and 
speed, Very often, the design and coding of a 
program will be more complex, internally, in 
order to make it easy to use. 
The term ‘‘user-friendly’’ expresses this 
seeming paradox. While this term has often 
been used as a mere marketing tool to sell soft- 
ware, the more commercially successful pro- 
grams are truly easy to use. After all, we are 
the programmers; we should assume only that 
the users of our applications can read, follow 
instructions and have some knowledge of the 
keyboard. As soon as the program is executed, 
all technical knowledge should be invisible to 
the user. 


HOW TO ACHIEVE 
**USER-FRIENDLINESS”’ 


Printing clear and simple instructions 
for each prompt. 


Limiting the amount of data the user 
must enter from the keyboard. 


Displaying only the output that the 


user has requested. 


Allowing the users to ‘‘change their 
minds’’—that is, to cancel an entry. 


Printing simple error messages which 
show the user what data they entered 
was incorrect, without ‘‘blowing up”’ 
the program. 


FIGURE 2—‘‘User-friendliness’’ means mak- 
ing programs as easy as possible for users. The 
simpler the instructions, the easier it will be for 
operators to learn how to apply programs suc- 
cessfully, 


One application may offer the user several 
different functions. For example, we can code 
a program which will allow the user the oppor- 
tunity to: 


|} Create a master file. 
| Update or add to that file at a later date. 
Rearrange the data entered. 
|| Display the data. 
As soon as the program begins to execute, 


the user will have to decide which of these func- 
tions to choose. A ‘‘menu’’ can be employed 


to make this choice user-friendly. 


A menu is nothing more than a display of 
a list of options and a prompt. This is closely 
analogous to a restaurant menu, which is a list 
of food items available to the user (or, in this 
case, the consumer). But, whereas, in a restau- 
rant your choice is relayed to a waiter, in a pro- 
gram, the ‘‘choice’’ is the response the user 
makes to a prompt. Let’s see how this works 
when designing and coding a program for a 
business executive. The busy executive is a/ways 
making choices—especially when setting ap- 
pointments. A ‘‘flexible’’ program for main- 
taining appointments could be an excellent 
timesaver. 


‘If I order the special, I also get a salad before 
and ice cream after. ..on the other hand. ...’’ 


FIGURE 3—There is very little difference between a program menu and a menu found in a restaurant. 
Both offer **choices*’, depending upon the requirements of the customer. 
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CREATING AN 
APPOINTMENT 
CALENDAR 
PROGRAM 

This program will store a list of dates, 
times, locations and names of various appoint- 
ments the executive’s secretary wants to keep 
on a month-by-month basis. We will allow the 
user to enter the data, update or cancel appoint- 
ments, display meetings on a daily basis, or to 
display the dates on which a specified person 
must be met. 


This program will require several 
subsections—one for each of the various op- 
tions. At the beginning of the run, a menu 
listing these options will be displayed. 


Before we begin coding the subsections, 
let’s see how the menu will appear. 


FIGURE 4—The secretary is usually the person 
who maintains the executive’s appointment 
calendar. The calendar alerts the secretary and 
executive to tasks which must be accomplished 
before meeting with a client, too. A computer- 
ized calendar can accommodate the day-to-day 
changes so that complete accuracy is always 
maintained. 
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The coding of this menu will be no more 
than a series of print statements with a prompt 
at the end. Since this menu will be displayed 
several times during the run (the menu will be 
redisplayed after each subsection is executed as 
well as at the start), let’s code it as a subroutine: 


18 GOSUB 89 

2¢ STOP 
8000 REM DISPLAY MENU 
8919 CLS 


8929 PRINT AT 9,4; “APPOINTMENTS 
CALENDAR” 


8938 PRINT AT 2,9; ““NUMBER”’; AT 
2,16; ““FUNCTION”’ 


8949 PRINT AT 4,3; ‘1°; AT 4,12; 
‘ENTER APPOINTMENTS”; AT 
5,13; ““FOR A MONTH” 


8959 PRINT AT 7,3; ‘‘2”’; AT 7,12; 
“CHANGE OR REMOVE”; AT 
8,13; ‘‘APPOINTMENTS”’ 


8960 PRINT AT 19,3; ‘3; AT 19,12; 
“DISPLAY APPOINTMENTS”; AT 
11,13; “BY DAY OR NAME”’ 


8676 PRINT AT 13,3; ‘4°; AT 13,12; 
“END THE PROGRAM” 


8988 PRINT AT 21,9; ‘‘“ENTER THE 
NUMBER OF YOUR CHOICE” 


8998 INPUT A$ 


g 123 45 6 7 8 9 19 11 12 13 14 15 16 17 18 19 28 21 22 23 24 25 26 27 28 29 39 31 


o| | | | UJAIPIPION INITIMIEINITIS! IC/IAILIENIDAIR] | | | | | | | 
ed vale ie hd Fea ee) Pt ht f| 
\ UIIN 


aJEINITIE|R) |THE) N|UMBE 


OF! |V'O/U/R] 


FIGURE 5—Sketching out menus on a grid helps in identifying the best visual arrangement. It is also 
quite easy to enter correct line and column numbers when the layout—such as this menu—is complete. 


Enter and run this short program. You will 
see the menu displayed just as the user will see 
it. Note that the user need only enter a single 
number in response to the prompt and that the 
meaning of each selection is clearly displayed 
on the screen. 


But we still do not have a ‘‘menu-driven”’ 


program since whatever the response of the user 
to the prompt, the program will end. What we 
have to do now is to test the response and 
branch to different sections of our program. 
Also, we must ensure that the user has given 
a valid response (1, 2, 3 or 4). If not, an error 
message should be displayed and the user given 
another opportunity to select a proper number. 
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A flowchart of this might be designed as 
follows: 


DISPLAY 
MENU 


INPUT 
SELECTION 


is 
SELECTION NO PRINT 


s ,o 
3OR4 
? 


YES bo 
ENTRY 
24 SUBSECTION 
YES iste) 
UPDATE 
at. SUBSECTION 


DO 
YES DISPLAY 
- SUBSECTION 
Ge - 


This design could then be coded as given 
below. (More will be said later about GOSUBs 
1908, 3900, and 6,000.) 


8198 IF A$ = ‘1’? OR A$ = “2”. OR AS 
= 3”? OR A$ = ‘4’? THEN 
GOTO 8149 

8119 PRINT AT 15,3; A$; AT 15,6; ‘‘IS 
AN INVALID SELECTION”; AT 
16,4; ‘““PRESS ENTER AND TRY 
AGAIN” 

8129 PAUSE 32767 

8136 GOTO 80g 


8149 IF A$ = ‘1’? THEN GOSUB 1900 


8158 IF A$ = ‘‘2’? THEN GOSUB 3660 
8169 IF A$ = ‘3’? THEN GOSUB 6900 
8178 IF A$ = ‘4’ THEN RETURN 


8188 GOTO 8660 


Note that in this logic, we first test to see 
if a valid number was entered. If not, a message 
is displayed which shows the user this invalid 
entry and tells them to try again. The PAUSE 
statement gives them time to read the message 
before branching back to redisplay the menu. 


If a valid response was entered, the pro- 
gram branches via GOSUBs to the applicable 
subsection of our program. A resvonse of ‘*4’’ 
(to end the program) returns control back to 
the caller of the ‘‘display menu’’ routine (line 
1) and the program will then be terminated 
by the STOP instruction on line 2%. Note that, 
after branching to the variou; si.broutines, we 
GOTO the section which pi.nts the menu, 
again. After all, the user may wish to continue 
the execution of the program by selecting 
another function. 


Before we enter this menu-driven routine, 
what will happen when a response of ‘‘1’’, ‘‘2”’, 
or ‘*3’’ is entered? Although the program calls 


for subroutines 1908, 3000 and 690M to be 


branched to, we have not yet coded these 


subsections. It is the intent of this Study Unit 
to explain how these routines are to be design- 
ed. But before we do this, it would be nice to 
run the menu part of the program to be sure 
that the proper branching occurs. A technique 
known as “‘stub testing’’ will allow us to do just 
this! 


STUB 
TESTING 

As programs become more and more com- 
plex, it helps to be able to test portions of the 
program at a time. That way, we can debug one 
section at a time without having to enter the 
entire program first. 


A ‘‘stub’’ is a subroutine which can be 
branched to via a GOSUB and does little more 
than return to the caller. 


For example, if we were to enter lines 
1900, 3000 and 696 as RETURN statements, 
our program could run smoothly, even though 
nothing would really happen. 


A better way to code the stub modules 
would be to display a message on the screen 
which would let us know that the proper branch- 
ing occurred before returning to the caller. See 
how we could code the subroutine for a 
response of ‘*1’’ (ENTER APPOINTMENTS 
FOR A MONTH): 


196 REM ENTER ROUTINE STUB 
1g1f CLS 


1928 PRINT “‘THIS IS THE ENTER 
ROUTINE” 


1938 PAUSE 32767 
1946 RETURN 


Note that this stub just provides a 
subroutine to go to, clears the screen, prints 
a message so we can see that the proper branch 
occurred, pauses and, finally, returns. We can 
enter similar stubs for the UPDATE routine 
and the DISPLAY routine. This will give us 
the opportunity to RUN the program and 
debug it. 


Later on, we can ‘“‘fill out’? each stub 
module, one at a time, when we are ready to 
do so. After we have coded the complete 
module, we can test it. By the time we have 
coded the entire program, the only bugs left 
will be those which relate to the interaction 
between two different subsections, thus making 
the entire application considerably easier to 
develop. 


Let’s now code and run this menu-driving 
portion as follows: 
19 GOSUB 89g 
2¢ STOP 
1\f# REM ENTER ROUTINE STUB 
fig CLS 


1928 PRINT “THIS IS THE ENTER 
ROUTINE” 


1938 PAUSE 32767 

1g4f RETURN 

366 REM UPDATE ROUTINE STUB 
391 CLS 


3929 PRINT “‘THIS IS THE UPDATE 
ROUTINE” 


3930 PAUSE 32767 

3949 RETURN 

699% REM DISPLAY ROUTINE STUB 
6919 CLS 


6929 PRINT ‘“‘THIS IS THE DISPLAY 
ROUTINE” 


6930 PAUSE 32767 
64¢ RETURN | 
8908 REM DISPLAY MENU 
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8418 CLS 


8926 PRINT AT 9,4; “APPOINTMENTS 
CALENDAR” 


8038 PRINT AT 2,0: “NUMBER”: AT 
2,16; “FUNCTION” 


8049 PRINT AT 4,3; “1; AT 4,12; 
‘ENTER APPOINTMENTS”: AT 
5,13; “FOR A MONTH” 


8059 PRINT AT 7,3; ‘'2’’; AT 7,12; 
“CHANGE OR REMOVE”; AT 
8,13; ‘‘APPOINTMENTS”’ 


8960 PRINT AT 19,3; ‘3°; AT 19,12; 
“DISPLAY APPOINTMENTS”; AT 
11,13; ““BY DAY OR NAME” 


8870 PRINT AT 13,3; ‘4°’; AT 13,12; 


8119 PRINT AT 15,3; A$; AT 15,6; “IS 
AN INVALID SELECTION”: AT 
16,4; ‘““PRESS ENTER AND TRY 
AGAIN” 

8128 PAUSE 32767 

8130 GOTO smd 

8149 IF A$ = ‘1’? THEN GOSUB 1966 


8158 IF AS = ‘2’? THEN GOSUB 3644 


8169 IF AS = ‘3’? THEN GOSUB 6960 
8176 IF AS = ‘4’ THEN RETURN 


8188 GOTO 89g 


“END THE PROGRAM” CODING THE 
APPOINTMENTS 
8480 PRINT AT 21,9; ““ENTER THE ENTRY 
NUMBER OF YOUR CHOICE”’ SUBROUTINE 
Let us now tackle the stub module, which 
8998 INPUT A$ is executed when option ‘‘1’’ is chosen from 
an appointments calendar menu. This sub- 
Sigh IFAS: = “1°? OR: AS: = “2” OR AS routine will dimension and initialize tables for 
= *§37 OR AS = **4”? THEN each of the data items we wish our calendar to 
GOTO 8146 maintain. 
TABLES 
DAY TIME AM/PM PLACE NAME NOTES 
ol 9:08 AM 86 5TH AVE. JOE BROWN JOB INTERVIEW 
Ol 12:00 NOON BILLS DINER MARY SMITH LUNCH 
m2 8:38 PM 11 N. ELM ST. BILL JONES PARTY 
96 11:38 AM 3626 CENTRAL DR. JOHNSON CHECK-UP 


After we set up our table sizes, we’ll have 
a FOR...NEXT loop to enter values for each 
of our appointments. This coding should be 
rather familiar to us by now. This section will 
be entered only once for each new month. After 
completing this module, the user will be reminded 
to set up a blank cassette tape so that the data 
can be saved. After the save instruction, the next 
step will be to display the menu, ensuring that 
the table data won’t be lost when the tape is 
reloaded (i.e., a RUN command need not be 
entered; the program will run itself). 


Here is how this module will be coded: 
1900 REM ENTER ROUTINE 
1918 CLS 


1920 PRINT AT @,5; ‘‘APPOINTMENTS 
ENTRY MENU” 


1930 PRINT AT 3,9; ‘“NUMBER”’: AT 
3,12; “FUNCTION” 


1948 PRINT AT 5,3; ‘1’; AT 5,12; 
“ENTER DATA FOR A NEW”; AT 
6,13; ‘“*MONTH” 


1958 PRINT AT 8,3; ‘2’; AT 8,12; 
““RETURN TO MAIN MENU” 


1969 PRINT AT 21,9; ‘ENTER 
NUMBER OF YOUR CHOICE” 


1976 INPUT B$ 


1088 IF NOT B$ = ‘1’? AND NOT B$ = 
**2"* THEN GOTO 1116 


199% IF BS = ‘1°? THEN GOSUB 129% 
1100 RETURN 


1118 PRINT AT 29,9; BS; ‘* IS NOT 
VALID—PRESS ENTER’”’ 


1129 PAUSE 32767 


1130 GOTO 1919 


1290 REM INITIALIZE TABLES 
1219 DIM D(31) 

1229 DIM T$(31,8) 

1238 DIM P$(31,20) 

1248 DIM NS$(31,29) 

1258 DIM M$(31,29) 


1266 LETN = @ 
1270 FOR L = 1 TO 31 
1288 CLS 


1298 PRINT AT 1,@; ““ENTER DAY 
(@1-31)” 


1308 INPUT DAY 


1319 IF DAY > @AND DAY < 32 
THEN GOTO 136¢ 


1328 PRINT AT 1,9; ‘INVALID DAY— 
PRESS ENTER” 


1338 PAUSE 32767 

1349 GOTO 1289 

1368 PRINT AT 1,19; DAY 

1370 PRINT AT 3.0; “ENTER TIME” 
1388 INPUT C$ 

1398 PRINT AT 3,12; C$ 

1490 PRINT AT 5,9; “ENTER PLACE” 
1419 INPUT D$ 

1429 PRINT AT 5,13; D$ 

1430 PRINT AT 7,9; “ENTER NAME” 


1448 INPUT E$ 
1458 PRINT AT 7,12; E$ 
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1469 PRINT AT 9,9; ““ENTER NOTES”’ 
1479 INPUT F$ 
1488 PRINT AT 9,13; FS 


1499 PRINT AT 11,9; “‘“PRESS ENTER 
IF OK—ELSE ENTER N” 


156% INPUT G$ 

1518 IF G$ = ‘‘N” THEN GOTO 1289 
1520 LET D(L) = DAY 

1530 LET TS(L) = C$ 

1549 LET PS(L) = DS 

1558 LET NS(L) = E$ 

1560 LET MS(L) = FS 

1576 LETN =N +1 


15848 PRINT AT 21,9; ‘“‘ANY MORE 
(Y/N)?”’ 


1598 INPUT H$ 

1699 IF H$ = “‘N” THEN LET L = 32 
1610 NEXT L 

1628 CLS 


1639 PRINT AT 3,9; “SET TAPE TO 
RECORD—PRESS ENTER” 


1649 PAUSE 32767 
1658 SAVE ‘*CALENDAR” 


1678 RETURN 


The flowchart design that was used to code 


this subroutine is as follows: 
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ENTER ROUTINE 


DISPLAY 
APPOINTMENTS 
ENTRY 
MENU 


1S CHOICE 
"1" OR 


z 
? 


YES 00 
LOAD TABLE 


an SUBROUTINE 


LOAD TABLE SUBROUTINE 


DIMENSION 
TABLES 


SET NUMBER 
OF ENTRIES 
Tog 


PRINT 
“INVALID 
DAY” 


IS RESPONSE ves 


? 


NO 


PuT 
VARIABLES 
INTO TABLES 


ADD 1TO 
NUMBER OF 
ENTRIES 


RETURN 
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When option ‘‘1”’ is selected from the 
main menu, the Enter Routine module is exe- 
cuted. This module displays its own menu— 
the Appointments Entry Menu. Here the user 
is given two choices: ‘*1’’ will allow the user 
to enter a new month’s records; *‘2’’ will return 
to the main menu. It is important that we give 
the user the second option, for as soon as 
option ‘‘1’’ is taken, any data stored in the 
tables would be lost. 


An entry of ‘‘1’’ initializes and dimensions 
five tables, each with 31 locations. D is a table 
of the days of the appointments; T$ is the time 
of the day; P$ is the location of the meeting; 
N$ is the name of the person to be met; and 


- 2 


M$ is the table of any notes the user might wish 
to keep regarding the meeting. Note that each 
of the character data tables has been given 29 
bytes for each element (except for the time 
table, which has only eight). 


Next, a counter is set to ‘‘@’ (N). This 
counter will be added to for each record placed 
in the table. The other modules will utilize the 
value of N in order to know how big this 
month’s table actually is. 


We now enter a FOR. ..NEXT loop which 
will allow for a maximum of 31 records to be 
entered for a month. Prompts are issued for 
each variable. When the day of the month is 


| 
| 


FIGURE 6—A computer and programs are tools to perform a job. Responsibility for quality of 
input and output is still in the hands of people such as programmers, decision makers, and operators. 
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entered, it is checked for validity—that is, a day 
between @1 and 31, inclusive. If a day outside 
of this range is submitted, the user will be 
informed of the error and given another chance 
to enter a valid day. 


Notice that each value has not been im- 
mediately put into the tables; rather, they have 
been put into DAY, C$, D$, E$ and F$. After 
all values have been given, the user is issued 
a message to press ENTER if all the data is 
good; otherwise, the user will have to enter the 
record over again. 

/ 


Here is another example of user-friendli- 
ness. Whenever possible, the user can either 
correct mistakes or change the data without 
having to go back to the beginning or, even 
worse, causing the program to blow up. 


Each value is then positioned in the tables 
according to the value of the control variable 
and subscript, ‘*L’’. At this point, our total 
number of records entered is incremented by 
one and a prompt is displayed for any more 
entries, If there are more, statement 1619 


(NEXT L) will add ‘‘1”’ to the control variable 
and branch back to the FOR L = 1 TO 31 in- 
struction. Otherwise, ‘‘L’’ will be set to ‘‘32”’, 
thus terminating the FOR...NEXT loop. 


When all appointments have been entered, 
the screen will be cleared, and the user ‘‘told’’ 
to set up a blank cassette tape to store the 
results. 


Then line 1679 will return to the caller (line 
199), where the next statement will cause a 
return to the original caller and produce the 
main menu. 


As soon as you understand the logic of 
this module, enter this coding as a replacement 
for the stub we previously coded for the 
table entry subsection. Then, run the program 
and enter in the ten test data records that 
follow. Be sure to prepare your tape cassette 
to record this program; you will need it later, 
after we fill out our two other stubs. 


Now pause for awhile and complete Pro- 
grammer’s Check #1 which follows. Verify 
your program before proceeding. 


TEST DATA 
DAY TIME PLACE NAME NOTES 
98 9:0 AM Ii IST AVE. ABC CO. JOB INTERVIEW 
H% 12 NOON BILLS DINER JOANNE LUNCH 


26 6:0 PM 15 CENTRAL 
15 19:00 AM 1686 ELM ST. 
pl 4:39 PM AIRPORT 

06 6:30 PM PARIS CAFE 

21 7:38 PM HOME 

15 1:38 PM 151 N. OAK ST. 
06 3: PM CITY PARK 

31 8:4 AM 


SAM AND DIANE 
XYZ BANK 


ALLIED AIRLINES 


DINNER PARTY 
CAR LOAN 


PICK UP MARY 


JOANNE DINNER 

MIKE SMITH CONSULTATION 
DR. JOHNSON CHECK-UP 
JOHNNY LITTLE LEAGUE 


816 MAPLE AVE. AAA CAR SERVICE 


GAME 


TUNE-UP 
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PROGRAMMER’S CHECK 


Using Stub Modules 


Program Name: 


IUIMAI (Instruction Unit 19, Assignment 1) 


Type: MENU-DRIVEN RECORD LIBRARY 


Specifications: 


Design, code and debug a program 
which will be used to maintain files of 
music albums. The software should be 
menu-driven. The main menu should ap- 
pear as follows: 


ALBUM COLLECTION 


NUMBER MEANING 


ENTER A NEW 
COLLECTION 


ADD TO OR CHANGE 
COLLECTION 


DISPLAY ALBUMS 
BY ARTIST OR TYPE 


4 FINISH 
CHOOSE A NUMBER 


Options 3 and 4 are to be coded as 
stub modules. The data to be maintained 
and entered is: 
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TABLES 


ALBUM CATALOG HIT 
TITLE ARTIST NO. SONGS TYPE* 


*Types of albums should use the follow- 
ing codes: 


RB — RHYTHM AND BLUES 

JZ — JAZZ 

RR — ROCK AND ROLL 

CL — CLASSICAL 

PP — POPULAR 

GS — GOSPEL 

CO — COMEDY 

CW — COUNTRY AND WESTERN 


MS — MISCELLANEOUS 


Set up enough space for a 5f-album 
collection. Enter in about 39 records. 
Remember to SAVE it onto tape; we'll fill 
out the stubs in a later assignment. 


(Answers on Pages 16-18) 


MAINTAINING 
TABLE FILES 

Now we should be ready to begin design- 
ing our next stub module—option ‘‘2’’ from 
our main menu, which is supposed to change 
or remove data in the tables. 


There are actually three general categories 
of transactions which can be made to an ex- 
isting table file: 


¢e Additions to the file. 
* Deletions from the file. 


© Changes to records on the file. 


ADDITIONS. 
TO THE FILE 

As long as our table is not full, we should 
allow the user to add new appointments made 
after the original tables were entered. We’ll 
have to ensure, however, that the new entries 
are made into, unoccupied positions of the 
tables. This is known as ‘‘merging’’. 


ORIGINAL FILE 


LOGICAL DELETION 


Merging is the process of putting two files 
together. In our sample program, we will be 
merging records into the file one at a time. 
More often, in larger data processing applica- 
tions, the additions to the file will be collected 
in a separate file, first. Then, the two files will 
be merged. 


DELETIONS 
FROM THE FILE 

In order to delete a record from the file, 
we must first be able to locate it in the table. 
We'll have to code logic which will search for 
the entry we wish to remove. Then, we can set 
the numeric variables to ‘‘f’’ and the character 
variables to blanks. This process is actually a 
logical deletion—that is, there will still be a 
space where the record used to be, but our pro- 
gram logic will consider any blank positions to 
be ‘‘non-existent’’. 


‘*Purging’’ is a process used to physically 
remove records from a file and to push all 
records which follow the deleted record up to 
fill in the blanks. Note the difference in the 
following illustration: 


PHYSICAL DELETION 


NAME [pee Sige hee NAME | PHONE f« # | SS NAME, | PHONE # ay 


991-1212 991-1212 1212 991-1212 1212 


ILI 


772-2311 


772-2311 


886-9988 


772-2311 555-9618 


555-618 555-$618 
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PROGRAMMER’S CHECK ANSWERS 
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Programmer’s Check 1 Answer (continued) 


oc PRINT ,@; “ENTER CODE Ty 


3432 INPUT 
3440 PRINT 
3452 PRINT 
IF _OK-ELSE 
INPUT G$ 
IF SS="N" THEN GOTO 


man 


“ANY MORE? CY 


$ 
IF H$="N" THEN GOTO 3588 
gure 3219 


@ PRINT AT 3,90; "SET TAPE TO R 


PAUSE 32767 

SAVE “ALBUM” 

RETURN 

REN REMOVE OLD ALBUMS 


PRINT AT 1,5; "REMOVE OLD AL 


PRINT AT 5,0; “ENTER TITLE T 
REMOVED" 
INPUT Rs 
LET S=1 
IF R$=TS$(5,1 TO LEN R$) THE 
N GOTO 4359 
4035 LET S=5+1 
4242 IF 5>N THEN GOTO 4052 
4245 GOTO 49350 
4050 PRINT AT S,0;RS$i"° NOT GON LI 
ST-PRESS ENTER" 
4053 PAUSE 32757 
4055 SOTO 416528 
4062 CLS 
4@65 PRINT AT 
EMOVED" 
PRINT 
PRINT 


; "ALBUM TO BE R 


“TELE? “SRS 
“ARTIST: "3; ASS 


PRINT ;"CAT.NO.: "Pe! 

5 PRINT “HIT SONG 

@ PRINT 12,@; “CODE TYPE 
20,0;"ENTER ¥ TO 


tJ 


me fs 


O 
Ss oS 


= 
s 
9 


"Y"“ THEN GOTO 4160 


415@ LET S$($: 

4155 CET $15) 

4162 ELS 

4165 PRINT AT 22,0; "ANY MORE? (vy 
a6 

4170 INPUT xs 

$190 IF _x=")" THEN GOTO 4a0e 


4515 3,9; "NUMBER"; AT 3; 
HANGE ARTIST" 

4542 PRINT AT 10,0;"5";AT 18,12; 
BER" 

4568 CLS 

4S585_IF Z$=T$(S5,1 TO LEN 2%) THE 
4612 CLS 

4625 CLS 


4132 RETUR 
45@0 REM CHANGE MODULE 
4505 
4510 1,6; “CHANGE MENU” 
12; "MEANING" 
4520 PRINT AT “AT 6,13;" 
HANGE TITLE" 
4525 PRINT AT MIRY 52185" 
453@ PRINT AT & "AT B, 183" 
HANGE CAT.NO," 
4535 PRINT AT ¢ "SAT 9,12; 
HANGE HIT SONG” 
“CHANGE CODE TYPE" 
4545 PRINT AT 12,0; "6"; AT 12,18; 
“RETURN TO MENU" 
455@ PRINT AT 21,20; "CHOOSE A NUM 
4555 INPUT Rs 
4560 IF R$="5" THEN RETURN 
4565 IF R$<'"@" OR RE>"S" THEN GO 
TO 45280 
oe PRINT AT 21,0; "ENTER OLD TI 
4575 INPUT 2§ 
4582 LET S=1 
N SOTO 4625 
4598 LET S=5+1 
4600 IF S>N THEN GOTO 4618 
4605 GOTO 4565 
4612 PRINT AT §,0;2%;," NOT ON FI 
LE-PRESS ENTER" 
4615 PAUSE 32767 
4622 GOTO 4520 
4530 PRINT AT 3,2; ‘ALBUM TO BE 
HANGED: "' 

PRINT AT 5,2; “TITLE: 

PRINT AT §, RETEST - 


PRINT AT ;"CAT.NO.: “; 
PRINT AT §,9;“ 

PRINT AT 8,0; “CODE TYPE 
PRINT AT 21,0) “ENTER CHANG 
INPUT KS$ 
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Programmer’s Check 1 Answer (continued) 


" THEN 
* THEN 
" THEN 
" THEN 

THEN 


oo 
ers DISPLAY MODULE 
PRINT AT 1,10; "DISPLAY ALBU 


PRINT AT 3,0; "CODE"; AT 3,10 
MEANING" 

S040 PRINT AT 5,1; "A"; AT 5,18; "0 
ISPLAY ARTIST" 
5@5@ PRINT AT 7,1, "C°; AT 7,10; "D 
ISPLAY BY CODE” 
5@60 PRINT AT 3,1; "R°;AT 9,1@;'"R 
ETURN TO MENU" 


3939.99.13 
ah th 
uu 


ounnu 
KRARAX 
7 UF oF 


5480 PRINT AT 18,0; "GS"; AT 18, 
“SOSPEL 
5430 PRINT AT 11,0; "CO"; AT 11, 
; “COMEDY “ 
5520 PRINT AT .12,0; "CU"; AT 12, 
"SOUNTRY WESTERN” 
ssid PRINT AT 13,0; "MS";AT 13, 
“MISCELLANEOUS” 
PRINT AT 21,0; "ENTER CODE” 
INPUT O$ 
LET S=1 
IF S$=M$(5! THEN GOTO 5598 
LET S=S+1 
IF S>N THEN GOTO 5670 
60TG 5550 
CLS 


PRINT 1.10;0§ 
PRINT : Re 


PRINT AT 21,0; " 


INPUT RS 

IF RS="R" THEN 
IF R$="R" THEN 
IF R$="C" THEN 


ENTER CODE” 


RETURN 
GOTO S152 
GOTO 5499 


PRINT 
PRINT 
PRINT 


pRTIST.! 


“CAT.NO. 


; "HIT SONG: 


eg 5220 

PRINT AT 1,9; “ENTER ARTIST" 

INPUT Os 

LET $1 

IF s$=As(5 
Ne SOTO 5238 

LET 5=S<¢1 


31 TO LEN @$; THE 


Sa asin GOTS 53128 


5 
“TITLE: “; TS 
“CAT. NO. iP 


"HIT SONG: '; 55 
“CODE TYPE: 7% 


PRINT 
PRINT 
PRINT 


PRUSE 

GoTo 5200 

CLS 

PRINT AT 5,16; "THATS IT" 
PAUSE 159 

aero 5028 


AT 1,8; "CHOOSE CATEGO 


PRINT AT 3,90; "CODE";AT 3,19 
; "MEANING" 
5432 PRINT AT 5,30; "RB"; AT 5,19," 
RHYTHM AND BLUES" 
5442 PRINT AT 6,90; "JZ"; AT 6,10; " 
JAZZ" 
545@ PRINT AT 7,0; "RR"; AT 7,18; 
ROCK AND ROLL" 
S452 PRINT AT 8,90; "CL"; AT &,10; " 
CLASSICAL” 
$4708 PRINT AT 9,0; "PP"; AT 3,10 
POPULAR” 
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PAUSE 32767 

GOTO S562 

CLS 

PRINT AT 5,16; “THATS IT" 
PRUSE 150 

GOTO Sea0 

rag DISPLAY MENU 


L 
3 PRINT AT 8,3, "ALBUM COLLECT 


PRINT AT 2,98, "NUMBER"; AT 
) “MEANING” 
8@¢2 PRINT AT 4.3; "1": AT 4,12:°E 
NTER A NEY" SAT 5,13; “COLLECTION” 


8050 PRINT AT 7.5: "2"; AT 7,12: "A 
ae ue OR CHANGE’; AT &,13; "COLLEC 
S068 PRINT AT 18,3; jsAT 18,12; 
“DISPLAY ALBUMS" ‘Bt be 13; "BY AR 
TIST OR TYPE" 
8872 PRINT AT 13,3; "4"; AT 13,12) 
“FINISH” 
ae PRINT AT 21,0; "CHOOSE A NUM 
6290 INPUT Us 
vee, 1" OR Vs="2" OR US=" 
THEN GOTO 5148 
s¥S;AT 15.6; ge 
AN INVALID SELEETION™ :AT 16,4; 
“PRESS ENTER AND TRY AGAIN" 
@ PAUSE 32767 
GOTO Ssa2e 
IF UVg="1" THEN GOSUB 1220 
IF Ugs="2" THEN GOSUB 3Saae 
IF Ugs="3" THEN GOSUB 5aso 
IF Ug="4" THEN RETURN 
GOTO saea 


ere 
fe on 
eg 


ee 
me 
=] 


0.00 08 00 No Cone 
reper es = 
eet 
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= 
co 
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CHANGES 
TO THE FILE 

The third category of file maintenance in- 
volves changes to records on the file. We should 
allow the user to change any variable for any 
record desired. But, before the change can be 
made, the record must first be located on the 
file, as in making deletions. 


As you can see, there are enough decisions 
that the user has to make when maintaining the 
file to warrant separate menus. So, let’s design 
a menu which will be displayed when option 
‘*2’? is entered from the appointments calen- 
dar menu. 


APPOINTMENT MODIFICATIONS 


NUMBER FUNCTION 


ADD NEW 
APPOINTMENTS 


REMOVE OLD 
APPOINTMENTS 


CHANGE OLD 
APPOINTMENTS 


4 RETURN TO MAIN MENU 
ENTER THE NUMBER OF YOUR CHOICE 


After the PRINT statements, our logic 
will, once again, cause branching to the various 
sections of our modifications routine. This por- 
tion of the flowchart design is as follows: 


MODIFICATIONS ROUTINE 


DISPLAY 
MODIFICATIONS 
MENU 


INPUT 
SELECTION 


Is 
SELECTION NO PRINT 
os O02; ERROR 
“3”; oy “a” MESSAGE 


* Crm) 


yes ADDITIONS 


dO 
pee SUBROUTINE 
Yes 


DO 
DELETIONS 
ai SUBROUTINE 
Y bo 
= CHANGES 
a. SUBROUTINE 


r 
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This coding will appear very familiar to 
us by now. Indeed, entering it can be made sim- 
ple by listing the line numbers from the main 
menu, changing the line numbers, and then, 
making the few changes necessary. 


3994 REM MODIFICATIONS ROUTINE 
319 CLS 


362 PRINT AT @,3; ‘‘APPOINTMENT 
MODIFICATIONS” 


393 PRINT AT 2,9; ‘‘“NUMBER”; AT 
2,16; “FUNCTION” 


3646 PRINT AT 4,3; ‘1''; AT 4,12; 
“ADD NEW”’; AT 5,12; 
*““APPOINTMENTS” 


3658 PRINT AT 7,3; “2”; AT 7,12; 
““REMOVE OLD”; AT 8,12; 
“APPOINTMENTS” 


360 PRINT AT 19,3; ‘3°; AT 16,12: 
“CHANGE OLD”; AT 11,12: 
“APPOINTMENTS” 


3979 PRINT AT 13,3; ‘4; AT 13,12; 
“RETURN TO MAIN MENU”’ 


3480 PRINT AT 21,6; “ENTER THE 
NUMBER OF YOUR CHOICE” 


3998 INPUT BS 

3198 IF BS = “1? OR BS = “2”? OR BS 
= ‘3’? OR BS = ‘4’? THEN GOTO 
3149 

3119 PRINT AT 15,3; B$; AT 15,6; “* IS 
AN INVALID SELECTION”: AT 
16,4; ‘‘PRESS ENTER AND TRY 
AGAIN” 

3129 PAUSE 32767 


3136 GOTO 3619 


i 


3146 IF BS = ‘1 THEN GOSUB 329 


3150 IF BS 


“2”? THEN GOSUB 499% 
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3169 IF B$ = ‘3’ THEN GOSUB 4599 
3178 IF BS 


““4’” THEN RETURN 


3189 GOTO 391¢ 


Enter this coding to the master copy of 
your program (reload it from the tape, if 
necessary). 


Once the menu is working, follow the logic 
and insert the lines into your program. 


ADDITIONS 
SUBROUTINE 

When the user needs to add new appoint- 
ments to the master files, we’ll first have to 
determine if there is any space remaining. For- 
tunately, our program has a variable. The total 
number of entries (N), which if subtracted from 
31, will allow us to display the number of 
entries that can be added. If this number is 
““’, we should so inform the user and then 
branch back to the modifications menu. This 
will avoid confusing the user by not having the 
program come to an abnormal end. 


\ 


FIGURE 7—Programming for business does 
require a familiarity with such things as office 
routines, sales reports, production schedules and 
inventory control. Most business managers are 
quite willing to explain their systems to the 
programmer. Often, the excecutives already have 
a plan for using a computer and software or 
simply need revisions to existing programs. 


Next, our new design will pretty closely 
follow the logic required to enter the appoint- 
ments previously, except we will nor have to 
dimension the tables or set up a FOR. .. NEXT 
loop. We can just increment ‘‘N”’ by ‘‘1”” and 
add the new value into the tables. 


FLOWCHART DESIGN 


PRINT 
REMAINING 


POSITIONS ? 


ARE 
THERE 
ANY MORE 
POSITIONS 


ADD 1 TO 
NUMBER OF 
ENTRIES 


PUT VARIABLES 
INTO TABLES 


3298 REM ADDITIONS SUBROUTINE 
3218 CLS 


3229 PRINT ‘ROOM IS LEFT FOR ”; 
31 — N; ** MORE ENTRIES”’ 


3230 IF 31 — N > § THEN GOTO 3268 


3248 PAUSE 32767 
3259 GOTO 3588 


3268 PRINT AT 1,9; “ENTER DAY 
(f1-31)”” 


3270 INPUT DAY 


3280 IF DAY > 6 AND DAY < 32 
THEN GOTO 3329 


3298 PRINT AT 1,f; “INVALID DAY — 


PRESS ENTER” 
3390 PAUSE 32767 
3318 GOTO 3260 
3329 PRINT AT 1,19; DAY 
3338 PRINT AT 3,9; ‘““ENTER TIME” 
3349 INPUT C$ 
335 PRINT AT 3,12; C$ 
3368 PRINT AT 5,9; ‘“ENTER PLACE” 
3378 INPUT D$ 
3388 PRINT AT 5,13; D$ 
3398 PRINT AT 7,9; ‘‘“ENTER NAME”’ 
3490 INPUT E$ 
3419 PRINT AT 7,12; E$ 
3429 PRINT AT 9,9; ‘““ENTER NOTES” 


3439 INPUT F$ 
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3449 PRINT AT 9,13; F$ 


3459 PRINT AT 11,9; ‘PRESS ENTER 
IF OK—ELSE ENTER N”’ 


3466 INPUT G$ 

3479 IF G$ = ‘“‘N” THEN GOTO 3219 
3486 LETN = N + 1 

3496 LET.D(N) = DAY 

3567 LET TS(N) = C$ 

3519 LET P$(N) = D$ 

3529 LET NS(N) = E$ 

3539 LET MS(N) = F$ 


3549 PRINT AT 21,f; ““ANY MORE 
(Y/N)?” 


3558 INPUT H$ 

3569 IF H$ = ‘‘N’? THEN GOTO 3589 
3570 GOTO 3219 

3589 CLS 


3598 PRINT AT 3,f; “SET TAPE TO 
RECORD—PRESS ENTER” 


3690 PAUSE 32767 
3618 SAVE “CALENDAR” 
3628 RETURN 


DELETIONS 
SUBROUTINE 

In order to delete a meeting from the file, 
we will prompt the user to enter the day and 
time of the meeting to be removed. Our logic 
will then search through the tables of days and 
times. When a match is found, the day will be 


reset to zero and the time, place, name and cupy a position in the file, but our program 
notes reset to blanks. This will then be a logical logic will treat it as if it were not there. The 
deletion; the old record will still physically oc- flowchart design for this subroutine follows: 


DELETIONS SUBROUTINE 


NO aave 
TAPE 


Yes 


RETURN TO 
MAIN 
MENU 


THE ENTIRE 
Mier ase 
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498 REM DELETIONS SUBROUTINE 
41 CLS 

4628 PRINT AT 5,f; “ENTER DAY” 
4938 INPUT DAY 

4940 PRINT AT 5,11; DAY 

4958 PRINT AT 7,9; ‘ENTER TIME” 
4f6f INPUT C$ 

4076 PRINT AT 7,12; C$ 

4p3f LETS = 1 

46 LET P = LEN C$ 


4197 IF D(S) = DAY AND T$ (S, 1 TO 
P) = C$ THEN GOTO 4189 


4119 LETS =S + 1 

4126 IF S< = N THEN GOTO 4194 

4139 CLS 

4149 PRINT AT 1,9; ‘‘NO MEETING 
SCHEDULED FOR:”; AT 2,9; 
“DAY ’; DAY; AT 2,8; “AT ”; C$ 


4159 PRINT AT 4,9; ‘“‘PRESS ENTER 
TO CONTINUE” 


4169 PAUSE 32767 
4179 GOTO 4236 

4184 LET D(S) = # 
4199 LET TS(S) = ‘**” 
4298 LET PS(S) =” 
4219 LET N&(S) = “” 
4229 LET MS(S) = “” 


4230 PRINT AT 21,0; “ANY MORE 
(Y/N)?”” 
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4248 INPUT H$ 
4259 IF H$ = ‘“‘N’’ THEN GOTO 4279 


4264 GOTO 490 
4276 CLS 


4288 PRINT AT 3,f; “SET TAPE TO 
RECORD—PRESS ENTER”’ 


4299 PAUSE 32767 
4397 SAVE “CALENDAR” 
431¢ RETURN 


Several instructions here are worth ex- 
amining. First, while we have 31 potential 
records in the tables, we can limit our search 
to the number of meetings actually in the file, 
which is the value of N. (See line 4129.) 


Secondly, we can only delete a meeting 
when both the day and time are found (line 
419). Comparing for the day will be done 
numerically and will be no problem. However, 
the comparison for the time will only be valid 
if we compare only the number of characters 
entered (C$). Therefore, we can use the length 
function, line 499, and then compare C$ to 
T$ (S, 1 TO P) in line 419. 


We will now move on to coding the 
**change’’ subroutine. 


CHANGE 
SUBROUTINE 

The change subroutine will be coded 
similarly to the deletions in that we will again 
have to search the tables before making any 
modifications. The user will again be prompted 
for the day and time of the meeting to be 
changed. Once the entry is found in the file, 
we must then determine which fields the user 
must change. The users will then be allowed 
to change one or more fields in the tables. The 
flowchart for this module follows: 


CHANGE SUBROUTINE 


PRINT 
OLD 
RECORD 


YES 


1S 
CHANGE 
TO TIME 
? 


HAVE WE YES PRINT 
SEARCHED ERROR 
THE ENTIRE MESSAGE 


TABLE 
? 


NO 


is 
CHANGE NEW =) 
To NOTES NOTES 
& 


YES 
CHANGES 


ANY OTHER 
RECORDS 
TO CHANGE 


NO 


RETURN TO 
MAIN 
MENU 
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459 REM CHANGES SUBROUTINE 
4519 CLS 

4526 PRINT AT 5,f; ‘ENTER DAY” 
4538 INPUT DAY 

4549 PRINT AT 5,11; DAY 

4559 PRINT AT 7,9; ‘ENTER TIME” 
4560 INPUT C$ 


4578 PRINT AT 7,12; C$ 


4588 LETS = 1 
4585 LET P = LEN C$ 


4599 IF D(S) = DAY AND T$ (S, 1 TO 
P) = C$ THEN GOTO 4679 


4660 LETS =S + 1 

4619 IF S < = N THEN GOTO 4599 

4620 CLS 

4639 PRINT AT 1,9; ‘‘“NO MEETING 
SCHEDULED FOR:”; AT 2,9; 
“DAY *: DAY: AT 2,8; “AT ”: C$ 


4649 PRINT AT 4,9; ‘‘PRESS ENTER 
TO CONTINUE” 


4658 PAUSE 32767 
4668 GOTO 5656 
4676 CLS 


4684 PRINT AT 1,9; ‘‘THIS IS THE 
OLD RECORD:”’ 


- 


4698 PRINT AT 2,9; “DAY ’’; D(S) 
47 PRINT AT 3,9; “TIME ”; TS(S) 
4719 PRINT AT 4,9; ‘‘PLACE ”’; PS(S) 


4729 PRINT AT 5,9; ‘‘NAME ”’; NS(S) 
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4739 PRINT AT 6,f; ‘‘NOTES ”’; MS(S) 


4748 PRINT AT 19,9; “‘1"°; AT 19,6; 
“CHANGE DAY” 


4756 PRINT AT 11,f; ‘2; AT 11,6; 
‘““CHANGE TIME” 


476 PRINT AT 12,9; ‘3’; AT 12,6; 
*““CHANGE PLACE” 


4776 PRINT AT 13,9; ‘4’; AT 13,6; 
““CHANGE NAME” 


4786 PRINT AT 14,9; ‘5°; AT 14,6; 
‘“CHANGE NOTES” 


4799 PRINT AT 29,9; ‘““ENTER 
NUMBER OF SELECTION” 


4860 INPUT I$ 

4819 IF IS = “1” OR IS = **2” OR I$ 
= 3” OR I$ = ‘4’? OR I$ = “5” 
THEN GOTO 484f 


4820 PRINT AT 21,9; “INVALID 
SELECTION—PRESS ENTER”’ 


4838 PAUSE 32767 

4835 GOTO 4676 

4837 CLS 

4849 IF IS$< >‘1’’ THEN GOTO 4886 
4856 PRINT “ENTER NEW DAY” 
4866 INPUT D(S) 

4876 GOTO 5620 

4889 IF IS< >‘*2”” THEN GOTO 4929 
4898 PRINT ‘ENTER NEW TIME” 
4998 INPUT TS(S) 

4919 GOTO 5929 

4926 IF IS<>*‘3’? THEN GOTO 4969 


4939 PRINT “ENTER NEW PLACE" 
4949 INPUT PS(S) 

4956 GOTO 52g 

4966 IF I$ < >‘*4’” THEN GOTO 56 
4978 PRINT “ENTER NEW NAME” 
4989 INPUT N&S(S) 

4999 GOTO 5929 

50 PRINT “ENTER NEW NOTES”’ 
571g INPUT MS(S) 

5929 CLS 


5925 PRINT AT 21,6; “ANY MORE 
CHANGES (Y/N)?” 


5938 INPUT J$ 
5640 IF JS = “Y’? THEN GOTO 4670 


5650 PRINT AT 21,f%; ‘““ANY OTHER 
RECORDS TO CHANGE?” 


5666 INPUT H$ 
5676 IF HS = “*Y” THEN GOTO 4597 
5688 CLS 


5698 PRINT AT 3,9; “SET TAPE TO 
RECORD—PRESS ENTER”’ 


5198 PAUSE 32767 
5119 SAVE “CALENDAR” 


5128 RETURN 


Notice that in this logic, the record to be 
changed is first displayed as the user is re- 
quested to pick a number corresponding to the 


field that is to be altered. When a number is 
entered, the program branches to prompt the 
user for the new data. Then, the entry is placed 
over the old data in the table. The user is given 
an opportunity to change more fields on that 
record, if desired. 


ENTER this addition to the program. 
RUN the entire program utilizing all of the op- 
tions we have entered. SAVE the additions onto 
tape. This program has gotten quite lengthy— 
we wouldn’t want to have to enter it all over 
again! 


Familiarize yourself with the program as 
it now exists. Remember, only a short while ago 
we had merely coded stubs for the additions 
and modifications modules. Consider how dif- 
ficult it would be to design and code this pro- 
gram without having developed it piece by piece 
as we have. 


In the next section, we will complete the 
third and last major module of our appoint- 
ments calendar program: the listing or display- 
ing of meetings by day or by name. In order 
to produce this output most efficiently, it is best 
to first sort these records, since they may have 
been entered and updated randomly (in no 
sequence). 


SORTING 

Sorting is the process of arranging records 
into sequence. This sequence may be ascending 
(from lowest to highest) or descending (from 
highest to lowest) according to a particular key 
or field. 


The method of sorting we will use is called 
a ‘‘bubble’’ sort because, like bubbles, the 
smallest (or lightest) values will float to the top 
of the table. 
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Let’s first examine a bubble sort which will 
rearrange a table of six numeric values. 


TABLE OF VALUES|TABLE OF VALUES 
(UNSORTED) 


(SORTED) 


In this bubble sort, we will pass through 
the list of values five times (one less than the 
number of values to be sorted). On each pass, 


each element will be compared to the next. If 


DVNICH IE 


the first is less than the second, then the two 
values are left alone, as they are already in 
ascending sequence. If, however, the first is 
greater than the second, then they will be 
switched: the first being put into the second 
position and vice versa. 


In this manner, the lower values will move 
towards the top of the table until all the values 
are in ascending sequence. Look at the follow- 
ing illustration to see how the table will appear 
after each pass. 


Notice that the table in Figure 9 is sorted 
after only three passes. The fourth and fifth 
passes will not necessitate any switching. 
Depending on the initial values of the table, 
however, we may need all five passes to ensure 
that all values are sorted. 


Now stop and complete Programmer’s 


Check #2. Be sure you understand the concept 
of bubble sorting before continuing. 


NG 


| 
~ ail! 


= J), Je 7 
Foti | 


FIGURE 8—Executives can speak confidently when their reports are based upon sound data. The 
programs used to process data in a computer must be designed for accuracy and flexibility, The require- 
ments of today will possibly change tomorrow. New modules should be anticipated so they can be 
added when necessary. 
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BUBBLE SORT PROCESSING 


INITIAL VALUE FIRST PASS 


NOTE: After the first pass, the largest value, 85, is on the bottom of the table. 


SECOND PASS THIRD PASS 


16-—> 16 


FIGURE 9—It takes three ‘‘passes”’ for these six random numeric values to be sorted and arranged 
in ‘‘bubble”’ format. However, it can take as many as five passes to accomplish this task, depending 
upon the arrangement. 
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PROGRAMMER’S CHECK 


2 


The Logic of ‘*Bubble’’ Sorting 


1. Try your hand at using the bubble THIRD PASS: 
sort process with the following num- 
bers. Will you use all five passes to INITIAL 
complete the task of sorting six nu- VALUE 
meric values? 


FOURTH PASS: 
FIRST PASS: 
INITIAL 
INITIAL VALUE 


SECOND PASS: FIFTH PASS: 


INITIAL INITIAL 
VALUE 
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Programmer's Check 2 (continued) 


2. Want to try another one? Although THIRD PASS: 

in theory the ‘‘smaller’’ bubbles rise 
to the top, in reality it is the 
‘“*heavier’’ or larger numbers which 
sink to the bottom. Remember, each 
smaller number can move upward 
only one tier for each pass, whereas 
larger numbers can fall several tiers 
in a single pass. 


FOURTH PASS: 
FIRST PASS: 
INITIAL 
VALUE 


SECOND PASS: FIFTH PASS: 


INITIAL INITIAL 
VALUE VALUE 


(Answers on Pages 32 and 33) 
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A 

FIRST PASS: 
INITIAL 
VALUE 


68 68 
689-58 
56 5h OP 
2» 2 29 
18 18 18 

7 7 4 


SECOND PASS: 


INITIAL 
VALUE 


68_ 50 56 


6 Of 


THIRD PASS: 


INITIAL 
VALUE 
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PROGRAMMER’S CHECK ANSWERS 


68 68 
56S 
29 29 


of —_-18 
18> +96 
7 


50 Sh 


on 


FOURTH PASS: 


INITIAL 
VALUE 


20. 18 «18 
1 8729 7 

7 7 9 
a A 
68 68 68 


no of o” 


FIFTH PASS: 


INITIAL 
VALUE 


Programmer’s Check 2 Answer (continued) 


2. 
FIRST PASS: 


INITIAL 
VALUE 


89-26 Oo 
29° <89_-35 35 
if 
1 1 
SECOND PASS: 


INITIAL 


8h «68 BH 


THIRD PASS: 


INITIAL 
VALUE 


12 12 


2612 
12726 AB 7 
1p 197 S29_ v1 
1 1 1S 
as 36 Ge 
86 8h 8 


FOURTH PASS: 


INITIAL 


FIFTH PASS: 


INITIAL 
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Now, let’s look at the flowcharting design 
for a bubble sort: 


DIMENSION 
AT6 


LET T(C) 
TIC + 1) 


NEXT P 
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Note how this design requires four FOR 
... NEXT loops. One of them merely serves to 
load six values into a table, while another is 
used to print out these six values after they have 
been sorted. 


The other two loops are ‘‘nested’’—that 
is, One is inside of the other. The FOR... 
NEXT loop controlled by the variable ‘‘P’’ will 
cause five passes through the table to occur. 


The final loop controlled by ‘‘C’’ will 
compare one element T(C) with the next ele- 
ment in the table T(C + 1). If they are already 
in sequence, a branch will occur to “NEXT C’’. 
But, if not, the first value will be stored under 
the variable name ‘‘H’’. Then the second will 
be put where the first was. Finally, the value 
held in ‘tH’? will be put back into the table 
where the second value was. This is how the 
switching will occur. 


Following is the coding for this bubble sort. 


1f DIM T(6) 
2@ FORL = 1TO6 
30 INPUT T(L) 


4 NEXT L 
5g FOR P = 1 TOS 
6f FOR C = 1 TOS 


is ape < T(C + 1) THEN GOTO 
11 


86 LET H = T(C) 

99 LET T(C) = T(C + 1) 
1 LET T(C + 1) =H 
119 NEXT C 

124 NEXT P 


139 FOR D = 1 TO6 


149 PRINT T(D) 
158 NEXT D 
16f STOP 

ENTER this program and then RUN it. 
Use the values in the previous illustration and 
watch how the output will become sorted. 
Then, try running the program with other 
values. It should still work! 

We can use the same method to sort char- 
acter data as well! Imagine that we have a list 
of six names, none greater than eight characters 
long. Change line 18 to DIM T$(6,8). Then 
change every reference to ‘‘T’’ to T$. (You’ll 
also have to change ‘‘H”’ to ‘‘H$’’.) Run the 


program as before, this time entering the 
following six names: 


JOE 
MARY 
SAM 
BARBARA 
ALLEN 
BETH 


Once the run is complete, you will see them 
displayed as: 


ALLEN 

BARBARA 

BETH 

JOE 

MARY 

SAM 

It would be just as simple a task to sort 


the records into descending sequence. All we 
would have to do is to change the comparison 
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on line 7 to test for the greater than ( > ) 
condition. Try doing just that. 


791F TIC) > T(C + 1) THEN GOTO 11f 


RUN the same program with the same 
names. This time, they should print as: 


SAM 
MARY 
JOE 

BETH 
BARBARA 


ALLEN 


CODING THE 
DISPLAY 
MODULE 

We will now use our knowledge of sort- 
ing to code the third and final module of our 
appointments calendar program. 


When option three is chosen from the 
main menu, this module will be branched to. 
At this point we must ask the user whether they 
want records displayed by day or by name. 
Depending on which option they select, we will 
have to sort the records into the corresponding 
ascending sequence. We’ll then print out the 
records slowly, one at a time. 


The general logic to accomplish these tasks 
follows: 


DISPLAY MODULE 


DISPLAY 
BY DAY 


DISPLAY 
NAME 
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PRINT 
RECORDS 
PRINT 
RECORDS 


The actual BASIC subroutines follow: 


6900 REM DISPLAY SUBROUTINE 
6018 CLS 


6929 PRINT AT 3,9; ‘‘DISPLAY BY 
DAY OR NAME?” 


6939 PRINT AT 5,9; *‘1 


BY DAY” 
6040 PRINT AT 7,9: “2 = BY NAME” 


6950 PRINT AT 11,6; ‘‘“ENTER 
NUMBER OF SELECTION” 


6060 INPUT RS 
6970 IF R$ = “1” THEN GOSUB 6199 
608 IF R$ = “2”. THEN GOSUB 6496 


6999 RETURN 

6190 CLS 

6119 FAST 

61299 FORP = 1 TON— 1 
6139 FORC = 1TON- 1 


6149 IF D(C) < D(C + 1) THEN GOTO 
630 


6156 LET H = D(C) 

6168 LET D(C) = D(C + 1) 
6176 LET S$ = TS(C) 

6186 LET TS(C) = TS(C + 1) 
6199 LET V$ = PS(C) 

6260 LET PS(C) = PSC + 1) 
6219 LET WS = NS&C) 

6220 LET NS(C) = NS(C + 1) 
6238 LET X$ = MS(C) 


6249 LET MS(C) = MSC + 1) 
6256 LET D(C + 1) = H 
6269 LET TS(C + 1) = S$ 
6276 LET PS(C + 1) = V$ 
6288 LET NS(C + 1) = WS 
6298 LET M&(C + 1) = X$ 
6368 NEXT C 

631% NEXT P 

6329 SLOW 

6330 GOSUB 6769 


6349 RETURN 

6460 CLS 

6419 FAST 

6429 FOR P = 1TON-— 1 
6439 FORC = 1TON- 1 


6449 IF NS(C) < NS(C + 1) THEN 
GOTO 6660 


6459 LET W$ = NS(C) 

6466 LET NS(C) = NS(C + 1) 
6476 LETH = D(C) 

6489 LET D(C) = DIC + 1) 
6498 LET S$ = TS(C) 

6508 LET TS(C) = TS(C + 1) 
6519 LET V$ = PS(C) 

6526 LET PS(C) = PS(C + 1) 
6538 LET X$ = MS(C) 

6549 LET M&(C) = MSC + 1) 
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6559 LET N&(C + 1) = WS 
6568 LET D(C + 1) = H 


6570 LET TS(C + 1) = S$ 


6586 LET PS(C + 1) = V$ 


6598 LET MS(C + 1) = X$ 
6698 NEXT C 

6619 NEXT P 

6626 SLOW 

6636 GOSUB 6766 


6646 RETURN 


6708 REM DISPLAY SORTED 
RECORDS 


6719 FOR B = 1 TON 

6726 PRINT AT 1,f; “DAY **; D(B) 
6736 PRINT AT 3,6; ‘‘TIME ”’; TS(B) 
6746 PRINT AT 5,9; “PLACE ”; PS(B) 
6758 PRINT AT 7,9; ‘NAME "’; NS(B) 
6766 PRINT AT 9,9;-‘‘NOTES "’; M$(B) 


6776 PRINT AT 21,9; ‘PRESS ENTER 
TO CONTINUE” 


6788 PAUSE 32767 
6798 CLS 
6800 NEXT B 


6818 RETURN 


84600 REM DISPLAY MENU 
8A1g CLS 
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8929 PRINT AT 9.4; “APPOINTMENTS 
CALENDAR” 


8939 PRINT AT 2,9; ‘“NUMBER”; AT 
2,16; ‘*“FUNCTION” 


spag PRINT AT 4,3; ‘1’; AT 4,12; 
‘ENTER APPOINTMENTS”; AT 
5,13; ‘FOR A MONTH” 


8659 PRINT AT 7,3; ‘'2”; AT 7,12; 
*““CHANGE OR REMOVE"; AT 
8,13; “APPOINTMENTS” 


896 PRINT AT 19,3; ‘3’; AT 16,12; 
“DISPLAY APPOINTMENTS”; AT 
11,13; ‘BY DAY OR NAME” 


8676 PRINT AT 13,3; ‘4°; AT 13,12; 
*““END THE PROGRAM” 


8489 PRINT AT 21,9; “ENTER THE 
NUMBER OF YOUR CHOICE” 


8999 INPUT A$ 

8190 IF A$ = ‘1’ OR A$ = “2” OR AS 
= “3? OR A$ = ‘4’? THEN 
GOTO 8149 


8118 PRINT AT 15,3; A$; AT 15,6; “IS 
AN INVALID SELECTION”; AT 
16,4; ““PRESS ENTER AND TRY 
AGAIN” 


8128 PAUSE 32767 


8138 GOTO 866% 
8149 IF A$ = “1°? THEN GOSUB 1967 
8159 IF AS = ‘2’? THEN GOSUB 3404 


8169 IF AS = ‘3’? THEN GOSUB 696% 
8176 IF A$ = ‘4’ THEN RETURN 
8189 GOTO 86g 


Note that when the appropriate choice is 
made, the records are sorted into the proper 
sequence. Only the name or the day is used for 
the key field. When a record is found out of 
sequence, the key field must be switched along 
with all of the other values (place, time, and 
notes). 


Also, since ‘‘N’’ contains the number of 
records in the tables, this value is used to con- 
trol the number of passes and comparisons 
which have to be made in the sort (N 1) 
and the number of records to be displayed. 


One more addition must be made for our 
program to be complete. We have to suppress 
the printing of logically deleted records. This 
can be accomplished simply by adding one 
statement to our print logic: 


6715 IF D(B) = 6 THEN GOTO 6869 


Insert this coding into the previously saved 
program. Now that all of the modules have 
been completed, the entire program should run 
without error. You may wish to actually use 
this program to store your own appointments. 
You now have a piece of software that would 
have cost between $10 and $15 if purchased 
from a computer store! 


Now, see what you have learned by tak- 
ing the Programmer’s Check which follows. 
Maybe you can think of other applications 
which you could create. Perhaps they are 
marketable! At the very least, you should be 
able to modify purchased software to suit your 
own needs; this is known as customizing. 


FIGURE 10—Getting along with others and being able to communicate effectively in a business 
environment are as basic to your success as BASIC. 
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PROGRAMMER’S CHECK 
3 
Adding Program Modules 


1. Frequently, the programmer is re- 
quested by a client to modify an 
existing program to meet new user 
requirements. Here is an example of 
how new modules can be added to 
a program you already have on tape. 


Program Name: TWU1A2 (Instruction 
Unit 19, Assignment 2) 


Type: MENU-DRIVEN 
RECORD LIBRARY 


Specifications: 


Design, code and debug additions to 
the record library program developed 
earlier in this Study Unit. Step ‘‘D’’ will 
require you to bubble sort the file by either 
artist or type. 


Add the following modules: 
A. A module to add new records. 
B. A module to delete old albums. 


C. A module to make changes to 
old albums. 


D. A module to display albums by 
artist or type. 


2. After you have debugged this 
program, you might consider 
offering the use of it to friends and 
relatives. In any case, you should 
now attempt to teach at least one 
person how to use this program. See 
whether you have sufficient menu 
**helps’’. Begin to understand what 
“‘user problems’’ occur by observing 
how others require guidance and 
instruction. Then, modify the 
program as necessary to meet user 
requirements. 
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DO YOU KNOW NOW? 


These were the questions posed at the 
beginning of the lesson. 


How menus can make software 
‘user-friendly’? 

Menus are printed displays of the 
options which the user of the system 
can choose from. A_user-driven 
program requires that the user 
merely read the printed instructions. 
All of the intricacies of the program 
are kept inside of the program and 
away from the user. 


How a bubble sort works? 

A bubble sort floats the lesser values 
in a table to the top of the table. 
Each value is compared to the next 
value and the elements are switched 
if they are out of sequence; 
otherwise, they are left alone. Bubble 
sorts can put tables composed of 
numbers or characters into either 
ascending or descending sequence. 


What stub testing means? 

Stub testing refers to the process of 
program development which allows 
for a program to be designed, coded 
and tested without the need for enter- 
ing the details of the entire program 
at once. Stub modules are merely 
branched to and returned from in the 
early stages of development. Later on, 
they are coded in full. 


SCHOOL OF COMPUTER TRAINING 


EXAM 10 


MERGING — FUNCTIONS 
24710-2 


Questions 1-10: Circle the letter beside the one best answer to each question 


1. In data processing, a ‘‘stub’’ is 


(a) 
(b) 
(c) 
(d) 


the label of a program. 

an uncoded module. 

a convenient way to test part of a program. 
a GOSUB menu. 


2. A menu-driven program 


(a) 
(b) 
(c) 
(d) 


requires technical knowledge of the user. 
helps to make a user-friendly program. 
ensures that the program will run. 

saves the program onto cassette tape. 


3. User-friendly software 


(a) 
(b) 
(c) 
(d) 


requires no technical knowledge by the user. 
allows the user to ‘‘change his mind’’. 
makes use of menus. 

all of the above. 
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4. Logical deletion 


(a) 
(b) 
(c) 
(d) 


5. A sort 


(a) 
(b) 
(c) 
(d) 


purges records from a file. 

flags records as deleted. 

set the numeric variables to blanks. 
set the character variables to zero. 


rearranges every record in a table. 
can be ascending or descending. 
can be numeric only. 

can be non-numeric only. 


6. A bubble sort is so called because 


(a) 
(b) 
(c) 
(d) 


nested FOR...NEXT loops are used. 

bubble memory is necessary. 

the lesser values float toward the top after each pass. 
none of the above. 


7. In a bubble sort 


(a) 
(b) 
(c) 


(d) 


the number of passes must be equal to the number of elements in the table. 

the number of passes must be one /ess than the number of elements in the table. 
the number of passes must be one more than the number of elements in the 
table. 

there is no relationship between the number of passes and the number of 
elements in the table. 


8. When we are to change or delete a record from a file 


(a) 
(b) 
(c) 
(d) 


the record to be changed does not have to be found. 

the record to be deleted must be physically removed from the file. 
we can just add a new, changed record to the file. 

the table must first be searched. 


9. Merging is the process of 


(a) 
(b) 
(c) 
(d) 


putting two files together. 

sorting records according to numerical value. 
sorting records according to alpha value. 
arranging files in descending order. 


10. ‘‘Nesting’’ refers to 


(a) 
(b) 
(c) 
(d) 


two or more loops being in the same program. 
a FOR...NEXT loop. 

one loop within another loop. 

the position of a chip in the computer. 


WHEN YOU HAVE COMPLETED THE ENTIRE EXAM, TRANSFER YOUR ANSWERS 
TO THE ANSWER SHEET WHICH FOLLOWS. 
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ANSWER PAPER 43 


To avold delay, please insert all the detalis requested below 


Ta a ee eS ee 


Study the foregoing Question Paper and use it for your rough 
workings. Record your final answers in the matrix below by 
writing a cross (X), IN INK OR BALLPOINT, through the letter 
which you think is the correct answer. Submit ONLY THIS 
ANSWER SHEET to the School for correction. ALL QUESTIONS 
MUST BE ANSWERED. 


ED 26C 12039 


